programa PrQuestao02;
usar crt;

var numero : inteiro;

comeco

(* TELA *)

     escreveln('*****************************************************************');
     (* TELA DE ABERTURA =============================================================*)
     escreveln('UNIVERSIDADE FEDERAL DE COMPINA GRANDE - UFCG                    ');
     (* TELA DE ABERTURA =============================================================*)
     escreveln('DEPARTAMENTO DE SISTEMAS E COMPUTACAO - DSC                      ');
     escreveln('                                                                 ');
     escreveln('DICIPLINA           : Laboratorio de Programacao I               ');
     escreveln('PROFESSORA          : Joseluce Farias Cunha                      ');
     escreveln('                      inversa                                    ');
     escreveln('*****************************************************************');


     escreveln('Qual o numero que deseja inverter? ');
     (* TELA DE ABERTURA =============================================================*)
     leln(numero);

     escreveln('O numero com digitos invertidos eh ');
     (* TELA DE ABERTURA =============================================================*)

fim.